* comp.el (comp-output-base-filename): Handle src being a symbol

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index eca61c6bac5573ff1b010559e002aadd04372501..92d0655ffdc0f57ff151d3ee6d9dc59750099821 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -440,7 +440,8 @@ VERBOSITY is a number between 0 and 3."
 
 (defun comp-output-base-filename (src)
   "Output filename sans extention for SRC file being native compiled."
-  (let* ((expanded-filename (expand-file-name src))
+  (let* ((src (if (symbolp src) (symbol-name src) src))
+         (expanded-filename (expand-file-name src))
          (output-dir (file-name-as-directory
                       (concat (file-name-directory expanded-filename)
                               comp-native-path-postfix)))